From fac2c40f773db2de22b10afd767b5d05161517bc Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Thu, 9 May 2002 18:04:27 +0000 Subject: [PATCH] (list-colors-display): Don't use `display-color-cells' unless the display class is one for which that info is relevant. --- lisp/facemenu.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/facemenu.el b/lisp/facemenu.el index 96c73e77bbd..c7e9cdd3a53 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el @@ -487,10 +487,11 @@ of colors that the current display can handle." (if (facemenu-color-equal (car l) (car (cdr l))) (setcdr l (cdr (cdr l))) (setq l (cdr l))))) - ;; Don't show more than what the display can handle. - (let ((lc (nthcdr (1- (display-color-cells)) list))) - (if lc - (setcdr lc nil)))) + (when (memq (display-visual-class) '(gray-scale pseudo-color direct-color)) + ;; Don't show more than what the display can handle. + (let ((lc (nthcdr (1- (display-color-cells)) list))) + (if lc + (setcdr lc nil))))) (with-output-to-temp-buffer "*Colors*" (save-excursion (set-buffer standard-output) -- 2.30.2